home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / formset / page2.pas < prev    next >
Pascal/Delphi Source File  |  1995-12-22  |  2KB  |  74 lines
  1. {
  2.                                 Saxman Software
  3.                          Programmer Productivity Series
  4.                              Delphi Custom Controls
  5.                           Copyright 1995, Jim Standley
  6.  
  7.                               FormSet Demo, Page 2
  8. }
  9. unit Page2;
  10.  
  11. {--------------------------------} Interface {-------------------------------}
  12.  
  13. uses
  14.   Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
  15.  
  16. type
  17.   TfPage2 = class(TForm)
  18.     Page2: TLabel;
  19.     procedure FormCreate(Sender: TObject);
  20.     procedure FormActivate(Sender: TObject);
  21.     procedure FormShow(Sender: TObject);
  22.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  23.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  24.     procedure FormHide(Sender: TObject);
  25.     procedure FormDestroy(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. var
  33.   fPage2: TfPage2;
  34.  
  35. {-----------------------------} Implementation {-----------------------------}
  36. {$R *.DFM}
  37.  
  38. procedure TfPage2.FormCreate(Sender: TObject);
  39. begin
  40.    ShowMessage('Page 2: Create');
  41. end;
  42.  
  43. procedure TfPage2.FormActivate(Sender: TObject);
  44. begin
  45.    ShowMessage('Page 2: Activate');
  46. end;
  47.  
  48. procedure TfPage2.FormShow(Sender: TObject);
  49. begin
  50.    ShowMessage('Page 2: Show');
  51. end;
  52.  
  53. procedure TfPage2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  54. begin
  55.    ShowMessage('Page 2: Close Query');
  56. end;
  57.  
  58. procedure TfPage2.FormClose(Sender: TObject; var Action: TCloseAction);
  59. begin
  60.    ShowMessage('Page 2: Close');
  61. end;
  62.  
  63. procedure TfPage2.FormHide(Sender: TObject);
  64. begin
  65.    ShowMessage('Page 2: Hide');
  66. end;
  67.  
  68. procedure TfPage2.FormDestroy(Sender: TObject);
  69. begin
  70.    ShowMessage('Page 2: Destroy');
  71. end;
  72.  
  73. end.
  74.